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Subroutine ERFPRCGINI ( Array addr, Array_size ) 
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C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

€* DIGITAL EQUIPRENT EORPORATION, MAYNARD, MASSACHUSETTS. 

C* ALL RIGHTS RESERVED. 

C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ITH THE 
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C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
Ce COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
C* TRANSFERRED. * 
® 

O CHANGE WITHOUT NOTICE * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT T 
AND SHOULD NOT ITMENT BY DIGITAL EQUIPMENT 


BE CONSTRUED AS A COMM 
C* CORPORATION, 


ITY FOR THE USE OR RELIABILITY OF ITS 


C* DIGITAL ASSUMES NO RESPONSIBIL RT 
IS NOT SUPPLIED BY DIGITAL. 
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C* SOFTWARE ON EQUIPMENT WHICH 
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AUTHOR: Elliott A. Drayton CREATION DATE: 27-Jan-1983 
Functional description: 


This is the initialization module for the loadable image ERFPROC4.EXE. 
After ERFPRG’4 has been loaded this routine is called to return 

the information from it tables. These tables specifiy which error 

log packets tnis loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The ENTRY TYPE value is the packet type identifier for the packets that 
this loadable image will process. 


The DEVICE CLASS value specifies the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 


INITDISK 0 ' a routine similar to this one 
MASSDISK 1 ! a device specific routine 


S883S8Ss3sss 


ONO UE WO 


AOOOOO SOO SO SOOO SOOO SOOooo 


Petiiieetssasasaass 


NOUS WI —O0 


AA AOOOOOOO 


F 13 
16-Sep-1984 0 Ar HH 
-Sep-1984 13:58:16 


RKDISK ; 

RLOISK 

ECT. 

Modified by: 
$R0001 Sharon Reynolds 17-Mar-1983 
we od tables to support UBA interrupts and errors, 
MBA interrupts, and undefined interrupts. 
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1 
DEFINE ENTRY TYPES 
i 


Parameter EMBSK_UBA = 9 
Parameter EMBSK_UE = 11 
Parameter EMBSK_MBA = 12 
Parameter EMBSK_UI = 97 


Parameter Zero = 0 
Parameter V1 = 1 


yoAluT module 


MBAINT module 


UNDEFINED module 
Undefined interrupt %X61 


! Device module version number 
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80 unibus adapter error 


BAERR ule 
1/730 un bus error %XxB 


11/780 massbus adapter error %XC 


Parameter Maxtypes = 4 
Integer*4 Array_addr, Array _size 
Integer*2 Proc4_codes ( 4 * Maxtypes ) 


Data Proc4_codes / 

1 EMBSK -UBA. zero, yi a’ 
zero, 

5 EMBSK_MBA, zero, “i. *4, 

4 EMBSK_UI, zero, vi 


Array_addr = ZLOC (proc4_codes(1)) 
Array_size = Maxtypes 


Return 
End 


11/7 8 unibus adapter error 
11/750 unibus error 
11/780 massbus adapter error 
i Undefined interrupt 
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PROGRAM SECTIONS 

Name Bytes Attributes 

SCODE 19 PIC CON REL LCL SHR EXE RD NOWRT LONG 

SLOCAL 32. PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Total Space Allocated 51 


ENTRY POINTS 
Address Type Name 


eee eee 


0-00000000 ERFPRCGINI 
VARIABLES 
Address Type Name Address Type Name 


AP-00000004@ 1*4 ARRAY_ADDR AP-00000008@ I*4 ARRAY_SIZE 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*2 PROC4_CODES 32. (16) 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$: INI TPROC4/0BJ=OBJ$: INITPROC4 MSRCLS: INI TPROC4 
seehucetnt tat hartee NOUNDERF LOW) 


/F77 /NOG_FLOATING 714 WOPTIAI IE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATIST,-S 


Run Time: .75 seconds 
Elapsed Time: 58 seconds 
Page Faults: 5 

Dynamic Memory: 155 pages 
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